home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1992 September
/
64er_Magazin_92-09_1992_Markt__Technik_de.d64
/
oscars dustbin
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
21 lines
9 v=53248:j=56320:pokev+32,.:pokev+33,11:print"[147][152]":poke2040,13:poke2041,14:pokev,229:pokev+1,171
11 pokev+39,5:a(1)=832:a(2)=896:fors=1to2:forn=.to62:readq:pokea(s)+n,q:nextn,s:pokev+28,3
12 pokev+37,1:pokev+38,.:poke211,31:poke214,.:sys58640:forp=.to23:print"[170][157]";:next:poke211,.
15 f$="(w)[157][157][213][178][215][215][195][195][157][157][157][157][157][219][213][201][176][201][157][157][157][157][157][194][202][203][177][173][157][157][157][157][157][157][202][203]gp[213][157][157][157][157][157][213][195][195][195][194][195][157][157][157][157][157][157][202][201][213][201][219][219]"
16 f$=f$+"[157][157][157][157][157][194][202][203][194][202][203][157][157][157][157][157][157][157][157][195][195][203] [203]":f$=f$+"[157][157][157][157][157][157][195][195][195][195][195][195][195]":f$="[157][157][157][157][157][157][157][157]"+f$
17 f$=f$+"[195][157][157][157][157][157][157][157][157][158]oscar's[157][157][157][157][157][157]dustbin[157][157][157][157][157][157][157][157][152][195][195][195][195][195][195][195][195][157][157][157][157][157][157][157]score:"
18 f$=f$+"[157][157][157][157][157][157][163][163][163][163][163][163]":poke214,23:sys58640:forp=.to39:print"[183]";:next:printf$:poke211,24
19 t$="[154][213][163][163][163][163][146][201][157][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157][194][194][194][194][157][157][157][157] [146]"
20 poke214,17:sys58640:printt$:print"":gosub205:gosub200:pokev+2,.:pokev+3,155:pokev+21,3:pokev+27,2
112 pokev+28,3:pokev+2,.:pokev+3,155:c=int(3+2*rnd(0)):pokev+40,c:forx=8to232step14:pokev+2,x
113 ifpeek(j)=126thenifpeek(v+21)=2orpeek(v+21)=.thengosub200:data,,,,,,2,170,,3,239,,10,118
114 ifpeek(j)=125andpeek(v+21)=3thengosub201:data128,9,85,128,9,221,128,9,85,128,10,102,128
117 nextx:ifpeek(v+21)=3thenforr=155to187:pokev+3,r:next:data11,255,128,10,254,128,2,170,,,168
118 ifc=4andpeek(v+21)=3thensc=sc+2:gosub205:goto112:data,,168,,162,170,40,162,170,40,,,,,,.
128 ifc=3andpeek(v+21)=3thensc=sc-4:gosub205:goto112:data,,,,,,,,,,,168,,2,150,,2,166,,2,170
130 pokev+2,254:fort=.to20:next:pokev+2,.:goto112:data,2,170,,2,170,,,168,,,,,,,,,,,,,,,,,,.
200 poke211,25:poke214,16:sys58640:print"[154][146] [161][145][157][172][145][157][188][145][157][146][161]":pokev+21,3:return:data,,,,,,,,,,,,,.
201 poke211,29:poke214,12:sys58640:print"[154][146] [157] [157] [157] [157] [157][157][157][157][157][162][190][188][146][162]":pokev+21,2:return:data,,,,,.
205 poke211,33:poke214,20:sys58640:print"[150]"sc"[157] ":ifsc>-1thenreturn:data,,,.
206 poke211,6:poke214,11:sys58640:print"s l i m e o v e r !":waitj,16,16:run